Plotting the group of trips I’ll call Route A ```
print( route.a )
## [1] 4 10 11 16 18 37 40 43 44 45 47 49 52 53 54 63 70
## [18] 80 82 90 104 105 107 111 115 116 117 120 121 123 130 131 138 140
## [35] 142 146 149 152 154 155 157 162 178 180 184 189 192 198 200
par.orig <- par(mar=c(1,1,1,1), mfrow=c(1,2), ask=FALSE)
for (trip.id in route.a) {
plotTrip( getTrip(driver.id, trip.id), header=FALSE)
}
Notes: - 149 has a turn off the others don’t
print( route.b )
## [1] 14 67 69 74 87 181 182 191 193
par(mar=c(1,1,1,1), mfrow=c(1,2), ask=FALSE)
for (trip.id in route.b) { plotTrip( getTrip(driver.id, trip.id), header=FALSE)
}
print( route.b )
## [1] 14 67 69 74 87 181 182 191 193
par(mar=c(1,1,1,1), mfrow=c(1,2), ask=FALSE)
for (trip.id in route.unk) { plotTrip( getTrip(driver.id, trip.id), header=FALSE)
}
par(par.orig)